DEFINITION MODULE fxDeskTask; (* Franz Kronseder / ETHZ / 06.08.85 *)

(* This module makes Macintosh Desk Accessories available in Modula-2 *)
(* application programs which use the fxEventTasks Mechanism for dealing *)
(* with Events. You just include "IMPORT fxDeskTask" and get the desk *)
(* accesssories handled in the background. *)
(* The implementation of fxDeskTask uses fxEventTasks and fxWindows *)

(*------------------------------------------------------------------------*)
FROM fxEventTasks IMPORT TaskPtr;
EXPORT QUALIFIED appleMenuID,fileMenuID,editMenuID,DeskTask;

CONST appleMenuID =   1; (* menu ID for desk accessory menu *)
       fileMenuID = 256;
       editMenuID = 275;

VAR DeskTask:TaskPtr;

END fxDeskTask.
